#'###########################################
#'                                          #
#'  ------------------------------------    #
#'  |     COIN     __                  |    #
#'  |            >(' )                 |    #
#'  |              )/                  |    #
#'  |             /  `----/            |    #
#'  |             \  ~=- /             |    #
#'  |   ~^~^~^~^~^~^~^~^~^~^~^~^~^~^   |    #
#'  ------------------------------------    #
#'                                          #
#'###########################################


staticPath <- "Fixe"
mobilePath <- "Mobile"

dataPath <- "C:/UQAR/Recherche/Maitrise/Donnees/Bylot/Brutes/Argos"
destPath <- "C:/test"

dataFile <- "Bylot2012_merged.txt"
sessionInfoFile <- "Prise_donnees_2012.txt"

dataDateFormat <- "%Y/%m/%d"
infoDateFormat <- "%d/%m/%y"

data <- parseData(file.path(dataPath, dataFile), dataDateFormat)
sessionInfo <- parseSessionInfo(file.path(dataPath, sessionInfoFile), infoDateFormat)

createTree(sessionInfo, data, destpath=destPath, staticPath, mobilePath)

